www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_del_acticle.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=inc_lanmu_bl.asp--> <!--#include file=../../inc/ND_class_function.asp--> <!--#include file="../adminHTML/makehtm_inc/D_makehtml_class.asp"--> <!--#include file=../D_delahtm.asp--> <% AJAXshowLoader() %> <% sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 '------------------------del htm1 is_cmsa=1 is_qiye=0 if cstr(rs44g("is_qiye"))="1" then is_cmsa=0 is_qiye=1 end if '------------------------del htm1 if find_dataw(lanmu_taba,rs44g("id"),3)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if biao="[ND_pic_or_sp_class]" biao2="[ND_pic_or_sp]" sys_content_type=trim(request("sys_content_type")) call delahtmx(request("id"),"$page$picsp_view_page$") biao="[ND_pic_or_sp_class]" biao2="[ND_pic_or_sp]" '必须放在最后,以让上述代码工作正常 conn.execute("delete from "&biao2&" where sys_content_type='"&sys_content_type&"' and id="&request("id")) %> <script language="javascript"> alert("删除成功"); self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>"; </script> <% AJAXcloseLoader() %>